(perform-replace): Don't set inhibit-read-only using

query-replace-skip-read-only (bug#956).

diff --git a/lisp/replace.el b/lisp/replace.el
index 086380ffc4c593cab21ab0febc8c58654d2b348e..5efbe417b0460b8b15c15310619b0fb7c2b370f4 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1665,8 +1665,7 @@ make, or the user didn't cancel the call."
                    (funcall (car replacements) (cdr replacements)
                             replace-count)))
            (if (not query-flag)
-               (let ((inhibit-read-only
-                      query-replace-skip-read-only))
+               (progn
                  (unless (or literal noedit)
                    (replace-highlight
                     (nth 0 real-match-data) (nth 1 real-match-data)